1 Leitura e limpeza dos dados

Primeiramente, utilizaremos a função head() para ter uma noção das informações contidas no arquivo .tsv escolhido.

df <- read_tsv('2004-2021.tsv')
df %>% head(3)

Pode-se obserar algumas informações importantes quanto ao formato:

As colunas estão bem comportadas quanto ao formato tibble, pois não há informações sendo apresentadas nas colunas.

df <- df %>% tibble()

As colunas e algumas informações encontram-se em caixa alta e acentuadas, logo uma boa prática seria utilizar o janitor::clean_names() para renomear as colunas em um formato melhor em termos de código, além disso usaremos o mutate() para deixar as informações em caixa baixa.

df <- janitor::clean_names(df)
df <- df %>% mutate(
  regiao = str_to_title(regiao),
  estado = str_to_title(estado),
  produto = str_to_sentence(produto)
)

Algumas colunas que deveriam ser do tipo <dbl> estão no formato <chr>, logo utilizando novamente a função mutate, podemos ajustar as informações para o formato correto.

df <- df %>% mutate(
  margem_media_revenda = as.double(margem_media_revenda),
  preco_medio_distribuicao = as.double(preco_medio_distribuicao),
  desvio_padrao_distribuicao = as.double(desvio_padrao_distribuicao),
  preco_minimo_distribuicao = as.double(preco_minimo_distribuicao),
  preco_maximo_distribuicao = as.double(preco_maximo_distribuicao),
  coef_de_variacao_distribuicao = as.double(coef_de_variacao_distribuicao)
  )

Portanto, após as primeiras impressões, obtemos o seguinte tibble:

2 Análise Exploratória

É importante verificar a quantidade de NA's em algumas colunas importantes como preço médio de revenda, datas iniciais de análise e localidade.

df %>% count(
  is.na(preco_medio_revenda),
  is.na(data_inicial),
  is.na(regiao),
  is.na(estado)
  )

A coluna produtos apresenta mais de um tipo para o mesmo produto, logo deveríamos agrupar valores que deveriam pertencer à mesma classificação.

df %>% group_by(produto) %>% summarize()

Entao, realizamos algumas manobras para mudar estes valores:

df <- df %>% mutate(
  produto = ifelse(produto == 'Óleo diesel', 'Oleo diesel', produto),
  produto = ifelse(produto == 'Óleo diesel s10', 'Oleo diesel s10', produto)
)

Tendo em vista que não foram encontrados casos de NA e agora os dados encontram-se bem comportados, partiremos para a análise visual e inferências de alguns comportamentos a fim de responder à algumas questões, como: quais regiões, ou estados possuem os combustíveis históricamente mais caros, mais baratos e existiria algum padrão para isso?

3 Visualização

A fim de responder as perguntas anteriores, trabalharemos na visualização e tentaremos traçar alguns padrões de comportamento.

3.1 Scatter plots

Primeiramente, tentaremos visualizar a distribuição geral das informações contidas na amostra.

df %>% ggplot(
  aes(
    x = data_inicial,
    y = preco_medio_revenda,
    color = produto
  )) +
  geom_point() + 
  labs(
    title = 'Preco medio de revenda dos derivados do petroleo ao longo do tempo',
    x = "Data",
    y = "Preco medio de revenda (R$)",
    color = "Produto"
  )

Pode-se perceber que o glp no geral apresenta um preço mais elevado, por conta da venda ser realizada em uma unidade de medida diferente, dificultando a comparação com outros produtos. Portanto, vamos ignorá-lo por um momento.

df_sem_glp <- df %>% filter((!produto=='Glp'))
df_sem_glp %>% ggplot(
  aes(
    x = data_inicial,
    y = preco_medio_revenda,
    color = regiao,
  )) +
  geom_point() + 
  labs(
    title = 'Preco medio de revenda dos derivados do petroleo ao longo do tempo',
    x = "Data",
    y = "Preco medio de revenda (R$)",
    color = "Regiao"
  )

Agora, podemos ver que embora desorganizado, os dados estão distribuídos de forma mais uniforme e podemos utilizar o geom_smooth() para evitar sobrecarga de informações apresentadas.

df_sem_glp %>% ggplot(
  aes(
    x = data_inicial,
    y = preco_medio_revenda,
    color = regiao
  )) +
  geom_smooth() + 
  labs(
    title = 'Preco medio de revenda dos derivados do petroleo ao longo do tempo',
    x = "Data",
    y = "Preco medio de revenda (R$)",
    color = "Regiao"
  )

Pode-se observar que a região norte possui a maior média de preço de combustíveis, enquanto o sudeste que concentra a produção e refino dos produtos, possui a média mais baixa. Desta forma, pode-se inferir que o fator geográfico envolvido no custo de transporte desses produtos possui uma forte influência no valor de revenda.

Também iremos nos aproximar do sudeste para poder entender um pouco mais da dinâmica de preços em nossa região.

df_sem_glp %>% filter(regiao == 'Sudeste') %>% ggplot(aes(
  x = data_inicial,
  y = preco_medio_revenda,
  color = estado
)) +
  geom_smooth() + 
  labs(
    title = 'Preco medio de revenda dos derivados do petroleo ao longo do tempo',
    x = "Data",
    y = "Preco medio de revenda (R$)",
    color = "Regiao"
  )

Percebe-se que apesar da média da região sudeste ter o menor preço diante de outras, o Rio de Janeiro em especial está bem acima da média da região, fugindo o padrão e se comportando como alguns pontos da região norte e centro oeste.

df_sem_glp %>% filter(regiao != 'Sudeste' | estado == 'Rio De Janeiro') %>% mutate(
  regiao = ifelse(regiao != 'Sudeste', regiao, 'Rio de Janeiro')
) %>% ggplot(aes(
  x = data_inicial,
  y = preco_medio_revenda,
  color = regiao
)) +
  geom_smooth() + 
  labs(
    title = 'Preco medio de revenda dos derivados do petroleo ao longo do tempo',
    x = "Data",
    y = "Preco medio de revenda (R$)",
    color = "Regiao, ou estado"
  )

3.2 Histogramas

Utilizaremos os histogramas para analisar mais de perto a distribuicao de preco entre a regiao e o estado analisado.

df_sem_glp %>% filter(regiao == 'Sudeste' | regiao == 'Norte', data_inicial > '2019-01-01' & data_inicial < '2020-01-01') %>% 
  mutate(
    regiao = ifelse(estado == 'Rio De Janeiro', 'Rio De Janeiro', regiao)
  ) %>% ggplot(aes(
    x = preco_medio_revenda,
    fill = regiao
  )) + geom_histogram() +
  labs(
    title = 'Preco medio de revenda dos derivados do petroleo de 2019',
    x = "Preco medio de revenda (R$)",
    y = "Quantidade de postos com o preco",
    fill = "Regiao, ou estado"
  )

3.3 Box plots

4 Referências

LS0tCnRpdGxlOiAnUiBlIHZpc3VhbGl6YcOnw6NvJwpzdWJ0aXRsZTogJ0xpc3RhIGF2YWxpYXRpdmEgMSAtLSBQcm9iYWJpbGlkYWRlIGUgRXN0YXTDrXN0aWNhJwphdXRob3I6ICdXYWduZXIgTWFydGlucyBkZSBMaW1hIEZpbGhvJwplbWFpbDogJ21hcnRpbnN3YWduZXIwMjFAZ21haWwuY29tJwpkYXRlOiAyMi8wOS8yMDIzCmxhbmc6ICdwdC1icicKCm91dHB1dDogCiAgIyBUbyBpbnN0YWxsIHRoZXNlIG91dHB1dCBmb3JtYXRzLCBydW4KICAjICAgaW5zdGFsbC5wYWNrYWdlcygiZGV2dG9vbHMiKQogICMgICBkZXZ0b29sczo6aW5zdGFsbF9naXRodWIoImZuYXVmZWwvZm5hdWZlbFJtZCIpCiAgZm5hdWZlbFJtZDo6aHRtbF9yZXBvcnQ6CiAgICBbXQotLS0KCmBgYHtyIHNldHVwLCBlY2hvPUZBTFNFLCBpbmNsdWRlPUZBTFNFfQprbml0cjo6b3B0c19jaHVuayRzZXQobWVzc2FnZT1GQUxTRSkKCmlmICghcmVxdWlyZSgnZGV2dG9vbHMnKSkKICBpbnN0YWxsLnBhY2thZ2VzKCdkZXZ0b29scycsIHJlcG9zID0gImh0dHA6Ly9jcmFuLnVzLnItcHJvamVjdC5vcmciLCB2ZXJib3NlPUZBTFNFKQoKaWYgKCFyZXF1aXJlKCdmbmF1ZmVsUm1kJykpCiAgZGV2dG9vbHM6Omluc3RhbGxfZ2l0aHViKCJmbmF1ZmVsL2ZuYXVmZWxSbWQiKQoKcGFjb3RlcyA8LSBjKAogICdjb25mbGljdGVkJywKICAnamFuaXRvcicsCiAgJ2thYmxlRXh0cmEnLAogICdrbml0cicsCiAgJ2xhdGV4MmV4cCcsCiAgJ3Nlc3Npb25pbmZvJywKICAnc3VtbWFyeXRvb2xzJywKICAndGlkeXZlcnNlJwopCgppbnN0YWxhcl9zZV9wcmVjaXNvIDwtIGZ1bmN0aW9uKHgpIHsKCiAgaWYgKCFyZXF1aXJlKHgsIGNoYXJhY3Rlci5vbmx5ID0gVFJVRSkpCiAgICBpbnN0YWxsLnBhY2thZ2VzKHgsIHJlcG9zID0gImh0dHA6Ly9jcmFuLnVzLnItcHJvamVjdC5vcmciLCB2ZXJib3NlPUZBTFNFKQoKfQoKaW52aXNpYmxlKHNhcHBseShwYWNvdGVzLCBpbnN0YWxhcl9zZV9wcmVjaXNvKSkKCmNvbmZsaWN0c19wcmVmZXIoZHBseXI6OmZpbHRlcikKYGBgCiMgTGVpdHVyYSBlIGxpbXBlemEgZG9zIGRhZG9zClByaW1laXJhbWVudGUsIHV0aWxpemFyZW1vcyBhIGZ1bsOnw6NvIGBoZWFkKClgIHBhcmEgdGVyIHVtYSBub8Onw6NvIGRhcyBpbmZvcm1hw6fDtWVzIGNvbnRpZGFzIG5vIGFycXVpdm8gYC50c3ZgIGVzY29saGlkby4KCmBgYHtyfQpkZiA8LSByZWFkX3RzdignMjAwNC0yMDIxLnRzdicpCmRmICU+JSBoZWFkKDMpCmBgYAoKUG9kZS1zZSBvYnNlcmFyIGFsZ3VtYXMgaW5mb3JtYcOnw7VlcyBpbXBvcnRhbnRlcyBxdWFudG8gYW8gZm9ybWF0bzoKCiogQXMgY29sdW5hcyBlc3TDo28gYmVtIGNvbXBvcnRhZGFzIHF1YW50byBhbyBmb3JtYXRvIF90aWJibGVfLCBwb2lzIG7Do28gaMOhIGluZm9ybWHDp8O1ZXMgc2VuZG8gYXByZXNlbnRhZGFzIG5hcyBjb2x1bmFzLgoKYGBge3J9CmRmIDwtIGRmICU+JSB0aWJibGUoKQpgYGAKCiogQXMgY29sdW5hcyBlIGFsZ3VtYXMgaW5mb3JtYcOnw7VlcyBlbmNvbnRyYW0tc2UgZW0gY2FpeGEgYWx0YSBlIGFjZW50dWFkYXMsIGxvZ28gdW1hIGJvYSBwcsOhdGljYSBzZXJpYSB1dGlsaXphciBvIGBqYW5pdG9yOjpjbGVhbl9uYW1lcygpYCBwYXJhIHJlbm9tZWFyIGFzIGNvbHVuYXMgZW0gdW0gZm9ybWF0byBtZWxob3IgZW0gdGVybW9zIGRlIGPDs2RpZ28sIGFsw6ltIGRpc3NvIHVzYXJlbW9zIG8gYG11dGF0ZSgpYCBwYXJhIGRlaXhhciBhcyBpbmZvcm1hw6fDtWVzIGVtIGNhaXhhIGJhaXhhLgoKYGBge3J9CmRmIDwtIGphbml0b3I6OmNsZWFuX25hbWVzKGRmKQpkZiA8LSBkZiAlPiUgbXV0YXRlKAogIHJlZ2lhbyA9IHN0cl90b190aXRsZShyZWdpYW8pLAogIGVzdGFkbyA9IHN0cl90b190aXRsZShlc3RhZG8pLAogIHByb2R1dG8gPSBzdHJfdG9fc2VudGVuY2UocHJvZHV0bykKKQpgYGAKCiogQWxndW1hcyBjb2x1bmFzIHF1ZSBkZXZlcmlhbSBzZXIgZG8gdGlwbyBgPGRibD5gIGVzdMOjbyBubyBmb3JtYXRvIGA8Y2hyPmAsIGxvZ28gdXRpbGl6YW5kbyBub3ZhbWVudGUgYSBmdW7Dp8OjbyBgbXV0YXRlYCwgcG9kZW1vcyBhanVzdGFyIGFzIGluZm9ybWHDp8O1ZXMgcGFyYSBvIGZvcm1hdG8gY29ycmV0by4KCmBgYHtyIHdhcm5pbmc9RkFMU0V9CmRmIDwtIGRmICU+JSBtdXRhdGUoCiAgbWFyZ2VtX21lZGlhX3JldmVuZGEgPSBhcy5kb3VibGUobWFyZ2VtX21lZGlhX3JldmVuZGEpLAogIHByZWNvX21lZGlvX2Rpc3RyaWJ1aWNhbyA9IGFzLmRvdWJsZShwcmVjb19tZWRpb19kaXN0cmlidWljYW8pLAogIGRlc3Zpb19wYWRyYW9fZGlzdHJpYnVpY2FvID0gYXMuZG91YmxlKGRlc3Zpb19wYWRyYW9fZGlzdHJpYnVpY2FvKSwKICBwcmVjb19taW5pbW9fZGlzdHJpYnVpY2FvID0gYXMuZG91YmxlKHByZWNvX21pbmltb19kaXN0cmlidWljYW8pLAogIHByZWNvX21heGltb19kaXN0cmlidWljYW8gPSBhcy5kb3VibGUocHJlY29fbWF4aW1vX2Rpc3RyaWJ1aWNhbyksCiAgY29lZl9kZV92YXJpYWNhb19kaXN0cmlidWljYW8gPSBhcy5kb3VibGUoY29lZl9kZV92YXJpYWNhb19kaXN0cmlidWljYW8pCiAgKQpgYGAKClBvcnRhbnRvLCBhcMOzcyBhcyBwcmltZWlyYXMgaW1wcmVzc8O1ZXMsIG9idGVtb3MgbyBzZWd1aW50ZSB0aWJibGU6CgpgYGB7ciBlY2hvPUZBTFNFfQpkZgpgYGAKCiMgQW7DoWxpc2UgRXhwbG9yYXTDs3JpYQoKw4kgaW1wb3J0YW50ZSB2ZXJpZmljYXIgYSBxdWFudGlkYWRlIGRlIGBOQSdzYCBlbSBhbGd1bWFzIGNvbHVuYXMgaW1wb3J0YW50ZXMgY29tbyBwcmXDp28gbcOpZGlvIGRlIHJldmVuZGEsIGRhdGFzIGluaWNpYWlzIGRlIGFuw6FsaXNlIGUgbG9jYWxpZGFkZS4KCmBgYHtyfQpkZiAlPiUgY291bnQoCiAgaXMubmEocHJlY29fbWVkaW9fcmV2ZW5kYSksCiAgaXMubmEoZGF0YV9pbmljaWFsKSwKICBpcy5uYShyZWdpYW8pLAogIGlzLm5hKGVzdGFkbykKICApCmBgYAoKKiBBIGNvbHVuYSBwcm9kdXRvcyBhcHJlc2VudGEgbWFpcyBkZSB1bSB0aXBvIHBhcmEgbyBtZXNtbyBwcm9kdXRvLCBsb2dvIGRldmVyw61hbW9zIGFncnVwYXIgdmFsb3JlcyBxdWUgZGV2ZXJpYW0gcGVydGVuY2VyIMOgIG1lc21hIGNsYXNzaWZpY2HDp8Ojby4KCmBgYHtyIHdhcm5pbmc9RkFMU0V9CmRmICU+JSBncm91cF9ieShwcm9kdXRvKSAlPiUgc3VtbWFyaXplKCkKYGBgCgogIEVudGFvLCByZWFsaXphbW9zIGFsZ3VtYXMgbWFub2JyYXMgcGFyYSBtdWRhciBlc3RlcyB2YWxvcmVzOgpgYGB7cn0KZGYgPC0gZGYgJT4lIG11dGF0ZSgKICBwcm9kdXRvID0gaWZlbHNlKHByb2R1dG8gPT0gJ8OTbGVvIGRpZXNlbCcsICdPbGVvIGRpZXNlbCcsIHByb2R1dG8pLAogIHByb2R1dG8gPSBpZmVsc2UocHJvZHV0byA9PSAnw5NsZW8gZGllc2VsIHMxMCcsICdPbGVvIGRpZXNlbCBzMTAnLCBwcm9kdXRvKQopCmBgYAoKVGVuZG8gZW0gdmlzdGEgcXVlIG7Do28gZm9yYW0gZW5jb250cmFkb3MgY2Fzb3MgZGUgYE5BYCBlIGFnb3JhIG9zIGRhZG9zIGVuY29udHJhbS1zZSBiZW0gY29tcG9ydGFkb3MsIHBhcnRpcmVtb3MgcGFyYSBhIGFuw6FsaXNlIHZpc3VhbCBlIGluZmVyw6puY2lhcyBkZSBhbGd1bnMgY29tcG9ydGFtZW50b3MgYSBmaW0gZGUgcmVzcG9uZGVyIMOgIGFsZ3VtYXMgcXVlc3TDtWVzLCBjb21vOiBxdWFpcyByZWdpw7Vlcywgb3UgZXN0YWRvcyBwb3NzdWVtIG9zIGNvbWJ1c3TDrXZlaXMgaGlzdMOzcmljYW1lbnRlIG1haXMgY2Fyb3MsIG1haXMgYmFyYXRvcyBlIGV4aXN0aXJpYSBhbGd1bSBwYWRyw6NvIHBhcmEgaXNzbz8KCiMgVmlzdWFsaXphw6fDo28KCkEgZmltIGRlIHJlc3BvbmRlciBhcyBwZXJndW50YXMgYW50ZXJpb3JlcywgdHJhYmFsaGFyZW1vcyBuYSB2aXN1YWxpemHDp8OjbyBlIHRlbnRhcmVtb3MgdHJhw6dhciBhbGd1bnMgcGFkcsO1ZXMgZGUgY29tcG9ydGFtZW50by4KCiMjIF9TY2F0dGVyIHBsb3RzXwoKUHJpbWVpcmFtZW50ZSwgdGVudGFyZW1vcyB2aXN1YWxpemFyIGEgZGlzdHJpYnVpw6fDo28gZ2VyYWwgZGFzIGluZm9ybWHDp8O1ZXMgY29udGlkYXMgbmEgYW1vc3RyYS4KCmBgYHtyfQpkZiAlPiUgZ2dwbG90KAogIGFlcygKICAgIHggPSBkYXRhX2luaWNpYWwsCiAgICB5ID0gcHJlY29fbWVkaW9fcmV2ZW5kYSwKICAgIGNvbG9yID0gcHJvZHV0bwogICkpICsKICBnZW9tX3BvaW50KCkgKyAKICBsYWJzKAogICAgdGl0bGUgPSAnUHJlY28gbWVkaW8gZGUgcmV2ZW5kYSBkb3MgZGVyaXZhZG9zIGRvIHBldHJvbGVvIGFvIGxvbmdvIGRvIHRlbXBvJywKICAgIHggPSAiRGF0YSIsCiAgICB5ID0gIlByZWNvIG1lZGlvIGRlIHJldmVuZGEgKFIkKSIsCiAgICBjb2xvciA9ICJQcm9kdXRvIgogICkKYGBgCgpQb2RlLXNlIHBlcmNlYmVyIHF1ZSBvICoqZ2xwKiogbm8gZ2VyYWwgYXByZXNlbnRhIHVtIHByZcOnbyBtYWlzIGVsZXZhZG8sIHBvciBjb250YSBkYSB2ZW5kYSBzZXIgcmVhbGl6YWRhIGVtIHVtYSB1bmlkYWRlIGRlIG1lZGlkYSBkaWZlcmVudGUsIGRpZmljdWx0YW5kbyBhIGNvbXBhcmHDp8OjbyBjb20gb3V0cm9zIHByb2R1dG9zLiBQb3J0YW50bywgdmFtb3MgaWdub3LDoS1sbyBwb3IgdW0gbW9tZW50by4KCmBgYHtyfQpkZl9zZW1fZ2xwIDwtIGRmICU+JSBmaWx0ZXIoKCFwcm9kdXRvPT0nR2xwJykpCmRmX3NlbV9nbHAgJT4lIGdncGxvdCgKICBhZXMoCiAgICB4ID0gZGF0YV9pbmljaWFsLAogICAgeSA9IHByZWNvX21lZGlvX3JldmVuZGEsCiAgICBjb2xvciA9IHJlZ2lhbywKICApKSArCiAgZ2VvbV9wb2ludCgpICsgCiAgbGFicygKICAgIHRpdGxlID0gJ1ByZWNvIG1lZGlvIGRlIHJldmVuZGEgZG9zIGRlcml2YWRvcyBkbyBwZXRyb2xlbyBhbyBsb25nbyBkbyB0ZW1wbycsCiAgICB4ID0gIkRhdGEiLAogICAgeSA9ICJQcmVjbyBtZWRpbyBkZSByZXZlbmRhIChSJCkiLAogICAgY29sb3IgPSAiUmVnaWFvIgogICkKYGBgCgpBZ29yYSwgcG9kZW1vcyB2ZXIgcXVlIGVtYm9yYSBkZXNvcmdhbml6YWRvLCBvcyBkYWRvcyBlc3TDo28gZGlzdHJpYnXDrWRvcyBkZSBmb3JtYSBtYWlzIHVuaWZvcm1lIGUgcG9kZW1vcyB1dGlsaXphciBvIGBnZW9tX3Ntb290aCgpYCBwYXJhIGV2aXRhciBzb2JyZWNhcmdhIGRlIGluZm9ybWHDp8O1ZXMgYXByZXNlbnRhZGFzLgoKYGBge3IsIHdhcm5pbmc9RkFMU0V9CmRmX3NlbV9nbHAgJT4lIGdncGxvdCgKICBhZXMoCiAgICB4ID0gZGF0YV9pbmljaWFsLAogICAgeSA9IHByZWNvX21lZGlvX3JldmVuZGEsCiAgICBjb2xvciA9IHJlZ2lhbwogICkpICsKICBnZW9tX3Ntb290aCgpICsgCiAgbGFicygKICAgIHRpdGxlID0gJ1ByZWNvIG1lZGlvIGRlIHJldmVuZGEgZG9zIGRlcml2YWRvcyBkbyBwZXRyb2xlbyBhbyBsb25nbyBkbyB0ZW1wbycsCiAgICB4ID0gIkRhdGEiLAogICAgeSA9ICJQcmVjbyBtZWRpbyBkZSByZXZlbmRhIChSJCkiLAogICAgY29sb3IgPSAiUmVnaWFvIgogICkKYGBgCgpQb2RlLXNlIG9ic2VydmFyIHF1ZSBhIHJlZ2nDo28gbm9ydGUgcG9zc3VpIGEgbWFpb3IgbcOpZGlhIGRlIHByZcOnbyBkZSBjb21idXN0w612ZWlzLCBlbnF1YW50byBvIHN1ZGVzdGUgcXVlIGNvbmNlbnRyYSBhIHByb2R1w6fDo28gZSByZWZpbm8gZG9zIHByb2R1dG9zLCBwb3NzdWkgYSBtw6lkaWEgbWFpcyBiYWl4YS4gRGVzdGEgZm9ybWEsIHBvZGUtc2UgaW5mZXJpciBxdWUgbyBmYXRvciBnZW9ncsOhZmljbyBlbnZvbHZpZG8gbm8gY3VzdG8gZGUgdHJhbnNwb3J0ZSBkZXNzZXMgcHJvZHV0b3MgcG9zc3VpIHVtYSBmb3J0ZSBpbmZsdcOqbmNpYSBubyB2YWxvciBkZSByZXZlbmRhLgoKVGFtYsOpbSBpcmVtb3Mgbm9zIGFwcm94aW1hciBkbyBzdWRlc3RlIHBhcmEgcG9kZXIgZW50ZW5kZXIgdW0gcG91Y28gbWFpcyBkYSBkaW7Dom1pY2EgZGUgcHJlw6dvcyBlbSBub3NzYSByZWdpw6NvLgoKYGBge3J9CmRmX3NlbV9nbHAgJT4lIGZpbHRlcihyZWdpYW8gPT0gJ1N1ZGVzdGUnKSAlPiUgZ2dwbG90KGFlcygKICB4ID0gZGF0YV9pbmljaWFsLAogIHkgPSBwcmVjb19tZWRpb19yZXZlbmRhLAogIGNvbG9yID0gZXN0YWRvCikpICsKICBnZW9tX3Ntb290aCgpICsgCiAgbGFicygKICAgIHRpdGxlID0gJ1ByZWNvIG1lZGlvIGRlIHJldmVuZGEgZG9zIGRlcml2YWRvcyBkbyBwZXRyb2xlbyBhbyBsb25nbyBkbyB0ZW1wbycsCiAgICB4ID0gIkRhdGEiLAogICAgeSA9ICJQcmVjbyBtZWRpbyBkZSByZXZlbmRhIChSJCkiLAogICAgY29sb3IgPSAiUmVnaWFvIgogICkKYGBgCgpQZXJjZWJlLXNlIHF1ZSBhcGVzYXIgZGEgbcOpZGlhIGRhIHJlZ2nDo28gc3VkZXN0ZSB0ZXIgbyBtZW5vciBwcmXDp28gZGlhbnRlIGRlIG91dHJhcywgbyBSaW8gZGUgSmFuZWlybyBlbSBlc3BlY2lhbCBlc3TDoSBiZW0gYWNpbWEgZGEgbcOpZGlhIGRhIHJlZ2nDo28sIGZ1Z2luZG8gbyBwYWRyw6NvIGUgc2UgY29tcG9ydGFuZG8gY29tbyBhbGd1bnMgcG9udG9zIGRhIHJlZ2nDo28gbm9ydGUgZSBjZW50cm8gb2VzdGUuCgpgYGB7cn0KZGZfc2VtX2dscCAlPiUgZmlsdGVyKHJlZ2lhbyAhPSAnU3VkZXN0ZScgfCBlc3RhZG8gPT0gJ1JpbyBEZSBKYW5laXJvJykgJT4lIG11dGF0ZSgKICByZWdpYW8gPSBpZmVsc2UocmVnaWFvICE9ICdTdWRlc3RlJywgcmVnaWFvLCAnUmlvIGRlIEphbmVpcm8nKQopICU+JSBnZ3Bsb3QoYWVzKAogIHggPSBkYXRhX2luaWNpYWwsCiAgeSA9IHByZWNvX21lZGlvX3JldmVuZGEsCiAgY29sb3IgPSByZWdpYW8KKSkgKwogIGdlb21fc21vb3RoKCkgKyAKICBsYWJzKAogICAgdGl0bGUgPSAnUHJlY28gbWVkaW8gZGUgcmV2ZW5kYSBkb3MgZGVyaXZhZG9zIGRvIHBldHJvbGVvIGFvIGxvbmdvIGRvIHRlbXBvJywKICAgIHggPSAiRGF0YSIsCiAgICB5ID0gIlByZWNvIG1lZGlvIGRlIHJldmVuZGEgKFIkKSIsCiAgICBjb2xvciA9ICJSZWdpYW8sIG91IGVzdGFkbyIKICApCmBgYAoKIyMgSGlzdG9ncmFtYXMKVXRpbGl6YXJlbW9zIG9zIGhpc3RvZ3JhbWFzIHBhcmEgYW5hbGlzYXIgbWFpcyBkZSBwZXJ0byBhIGRpc3RyaWJ1aWNhbyBkZSBwcmVjbyBlbnRyZSBhIHJlZ2lhbyBlIG8gZXN0YWRvIGFuYWxpc2Fkby4KYGBge3J9CmRmX3NlbV9nbHAgJT4lIGZpbHRlcihyZWdpYW8gPT0gJ1N1ZGVzdGUnIHwgcmVnaWFvID09ICdOb3J0ZScsIGRhdGFfaW5pY2lhbCA+ICcyMDE5LTAxLTAxJyAmIGRhdGFfaW5pY2lhbCA8ICcyMDIwLTAxLTAxJykgJT4lIAogIG11dGF0ZSgKICAgIHJlZ2lhbyA9IGlmZWxzZShlc3RhZG8gPT0gJ1JpbyBEZSBKYW5laXJvJywgJ1JpbyBEZSBKYW5laXJvJywgcmVnaWFvKQogICkgJT4lIGdncGxvdChhZXMoCiAgICB4ID0gcHJlY29fbWVkaW9fcmV2ZW5kYSwKICAgIGZpbGwgPSByZWdpYW8KICApKSArIGdlb21faGlzdG9ncmFtKCkgKwogIGxhYnMoCiAgICB0aXRsZSA9ICdQcmVjbyBtZWRpbyBkZSByZXZlbmRhIGRvcyBkZXJpdmFkb3MgZG8gcGV0cm9sZW8gZGUgMjAxOScsCiAgICB4ID0gIlByZWNvIG1lZGlvIGRlIHJldmVuZGEgKFIkKSIsCiAgICB5ID0gIlF1YW50aWRhZGUgZGUgcG9zdG9zIGNvbSBvIHByZWNvIiwKICAgIGZpbGwgPSAiUmVnaWFvLCBvdSBlc3RhZG8iCiAgKQpgYGAKCiMjIF9Cb3ggcGxvdHNfCgoKCiMgUmVmZXLDqm5jaWFzCiogW0NvbW8gc8OjbyBmb3JtYWRvcyBvcyBwcmXDp29zLCBQZXRyb2JyYXNdKGh0dHBzOi8vcHJlY29zLnBldHJvYnJhcy5jb20uYnIvd2ViL3ByZWNvcy1kb3MtY29tYnVzdGl2ZWlzL3cvZ2Fzb2xpbmEvYnIpCiogW1ByZcOnb3MgZGUgUmV2ZW5kYSBlIGRlIERpc3RyaWJ1acOnw6NvIGRlIENvbWJ1c3TDrXZlaXMsIEdvdmVybm8gRmVkZXJhbF0oaHR0cHM6Ly93d3cuZ292LmJyL2FucC9wdC1ici9hc3N1bnRvcy9wcmVjb3MtZS1kZWZlc2EtZGEtY29uY29ycmVuY2lhL3ByZWNvcy9wcmVjb3MtcmV2ZW5kYS1lLWRlLWRpc3RyaWJ1aWNhby1jb21idXN0aXZlaXMpCgo=

R e visualização

Lista avaliativa 1 – Probabilidade e Estatística

Wagner Martins de Lima Filho

22/09/2023